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LOCAL CONTACTS 


Anne F. 
This list is of members who have said their name could be used 
for ‘local contacts’. Excluded are all those in areas where 
there are already meetings. The STD code has been included when 
this was supplied ay the member, otherwise the locality given 
should be a guide to the relevant exchange. 


The idea behind this list is that members in an area wanting to 
verbally contact others nearby can do so more easily, and 
perhaps get together on occasion. 


location phone 
au GLEN Kamo 51-626 
8101 REES Whangarei 78-688 
8126 RAY - 78-844 
6486 JOHN Kaikohe 4458 
2351 PAUL Cambr i dge 671 27 44654 
2378 TED Putaruru 888 25716 
2088 GEOFF Te Kuiti 1916 
3451 DAVID Edgecumbe 49491 
5308 PETER Palm Nth 64-484 
3361 BRIAN : 79-319 
3328 GRAEME , 691-69 X685 
9491 BRIAN Dannevirke 8653 6524 
5506 PETER Levin 81-882 
34666 WARREN Fielding @463 38-118 
7861 SIMON Nelson 85-459 
7882 RICHARD Richmond 8489 
7391 PETER Kaikoura 328 
7352 RON Renwick 28-571 
7661 JAMIE Westport 6995 
7953 Alan Harihari 33-125 
8821 JOHN Hawarden 984 44-269 
8961 ALAN Oamaru 47-369 
9153 ROY Lawrence 228 
9162 GIO Waikouaiti B24 757-389 
9191 TREVOR Cr omwe 1} ] 986-614 
9266 DES Balclutha 82-927 
9288 STEPHEN : 62-859 
7588 TREVOR Invercargill 57-644 
9521 EVAN " 621 338-444 
7321 WARREN Kennington 858 
9454 LYNDON Riverton @21 348-443 
9668 BRIAN Invercargill 393-168 
7481 JOHN Te Anau 7295 
9753 JOHN Mataura 8182 


There are m 


Gore 


embers in Kaitaia, Nelson, Qamaru and 
who have not given a home 
contact points! 


phone but would be 
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NEWS AND COMMENTS 


COMPETITION 
The competition announced in the April Beeblet, which offers a 
$56-08 prize for the best program (and associated documentation) 
sent in for publication, will close off in September. All 
programs received between the end of April and the end of 
September will be considered. 


MEMBERSHIP SUBSCRIPTIONS 

The National Committee has been investigating way of reducing 
membership fees as directed by the AGM. Significant Savings are 
expected in Beeblet production costs as a result - this edition 
was produced by Bryce Francis Ltd using a “total copy" process 
rather than the more expensive offset printing. The Committee 
is currently considering how best to pass these savings back to 
members, given likely future income and expenditure patterns, 
and inflation trends. In the meantime people joining from i 
October can opt to have half of their sub waived for the 
remainder of the financial year, but receive no back issues. 


THE ACORN SAGA - continued 

According to the August Acorn User Olivetti may have found that 
things were worse than they expected. Some 38 more people have 
been laid-off, divisions mot directly associated with computing, 
including even ACORNSOFT, may be sold off. A number of senior 
Acorn staff have left, and new Olivetti and A T&T executives 
moved in. I have heard that Olivetti has increased its stake in 
Acorn to around 70%. 


M.U.OD. 
Following on from Steve’s comments last month, British Telecom 
has adopted a V.A.X based M.U.D. (Multi User Dungeon) and will 
be running it later this year. It can handle up to 108 
Adventurers at a time at various baud rates (300/300, 1200/75). 
The starter pack cost 20 pounds, thereafter the charge is 2 
pounds per hour. 


RERKKKKFKKKRKKEHKKKKKRHKHHHKSE 


BEEBLET [5 edited by Bruce Wills who may sometimes be tracked 
down on 61-662 th) or 729-929 (wk), 


DISCLAIMER 
The Views of the reviewers, the Editor and other contributore 
are ot necessarily shared by the 
BBC/ACORN COMPUTER USER GROUP NZ (INC) 
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A forum conducted by Tia Ryan 









23 
Qi John B. of Waiheke Is. wants to Know the meaning of 
VDU23;382902;9;8 50; as opposed to the more usual 
VDU23 240-255 5x px 9% 9X 9X 9% pX eX 


Ai The answer to this lies in the use of ";"s, and the 
fact that VDU 23 is not only used to define characters, but alse 
to talk to the graphics generator chip (the CRTC or cathode ray 
controller chip). This is explained to some extent in the user 
guide (page 385), or more fully in the advanced user quide 
(pages 359 ff). 


In the example shown: you will notice that semicolons are used 
rather than commas between the numbers. This is explained in the 
user guide (page 386). Suffice it to say, they allow 16 bit 
numbers to be sent to the VDU queue. 

The number 8202 is thus 8262 MOD 256=32, and 8202 DIV 256=18. 
It refers to the fact that we are writing 32 to register 1@ 
which simply turns the cursor off, 


This of course only applies in the case of a BBC where there is 
a CRTC. In the Electron the graphics are actually done by the 
6502 plus other hardware, so this command will only turn the 
cursor off if the Electron’s OS recognises BBC related commands, 
and converts them to a form it can use. This I don’t Know - can 
anybody tell us what calls to the (non existant) CRTC in the 
Electron actually do ? 


PRINTMASTER ROM 
Q2 This is one from last month (Q2 about the *GPRINT 
command ‘missing’ the top line of any inverse type). Now that | 
am back on the grindstone I can probably answer that. 


AZ In fact the top line of the BBC’s character set has 
pixels in it (have a close look at MODE 2 with a capita) T under 
a lowercase g -' they actually touch!) which means that if 


DIPPPDIIFIVIFAVAIIAFIDPDIA IID IPA I IIAP PID IFPI 


EVENT ET SVEVET SVEN TOTS TSTSV EVENTS TT TSTSV ever rrrerersrt? 


PRINTMASTER is simply inverting the character definition and 
then printing it out on the printer in graphics mode, any pixels 
rey characters on the top line will be inverted black (ie 
white). 

This makes for rather untidy inverse printing and is normally 
corrected by printing an extra single line of dots immediately 
above the inverse text. Obviously PRINTMASTER does not do this. 
Hope that makes sense, and answers your question Alan. 


Multiple Modes 
Q3 David F asks whether it is possible to have a Mode 7 
window on an otherwise Mode ® screen. 


A3 Unfortunately mo, David. There are various programs 
around now to allow multiple modes on one screen (witness 
ELITE). However, MODE 7 is a different matter. 1 think I am 
correct when I say that there are hardware restrictions that 
completely prevent this possibility. If another MODE (eg 4) 
would do the job, 1 suggest you have a look at recent issues of 
ACORN- and MICRO- USER as both of these magazines have had 
articles on multiple MODES on one screen. 


Input Colours in MODE 7 


Q4 David also asks whether Inputs in MODE 7 can be in 
colour. 
A4 They sure can ' Simply add the CHR$ number to the INPUT 


statement as you would a PRINT statement. Eg: 


4@PRINT CHR$132;"GREEN LETTERS:";CHR$ 136; 
S8INPUT "" green_letters$ 


This would make "GREEN LETTERS" appear in dark blue, and any 
text typed in appear in green. 


View Printer Driver - Electron 


Editor’s note: Steve Cosgrove, who has agreed to try and boost 
the Electron content in Beeblet, advises that Robert Ngan’s 
Print Driver only requires minor modifications to run on an 
Electron (with a Plus-1). I will get the details of this next 
month, and try and arrange for a copy of both versions to be 
available for those who want to send in a tape or disc ( + P&P ) 
for a copy. 


TOTTTATTTTT ATT TAT TT TAT TT TTT TTT ttt tt ttt ttt ttt ttt ttt ttt ttt 
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REGIONAL REPORT 


WELLINGTON: 


The most notable local event in recent weeks was the Micro 
Computer Show held in mid July at the Overseas Terminal. A 
User Group stand was most ably organised by Jean Heywood, and 
saw a large mumber of people flowing through it. A wide variety 
of hardware and software was displayed by dealers, including the 
Mega Mouse and some of the Solidise range. 


Meeting Program: 
August - Music and Sound 
September - Graphics 


Where are all the people who indicated a preference for Thursday 
meetings? Workshops are now held on the second Thursday of the 
month at Wellington College, which has a Beeb network. For 
further details please get in touch with one of the local 
contacts. 


Finally, it has been suggested that "house groups", that is 
small informal meetings at members homes, could prove a useful 
adjunct to the more organised activities, especially for groups 
with special interests, novices etc. If you are interested in 
the idea please contact Don Churchill or one of the other local 
committee members. 


AUCKLAND 


Steve Williams reports: 

The meeting held on i@th July saw Doug Pauling of Barson’s wie 
a very interesting talk about a variety of subJects!. ext 
meeting is all about hardware upgrades and add-ons. 


WAIKATO 


Alison Stonvyer writes: 

Our July meeting was a great success and covered a very 
interesting variety of subjects. The most informative of these 
would have been an introduction to Forth. We had a breakdown of 
the PLUS ONE for the Electron users and on the software / 
firmware front we had an indepth look at the SLEUTH ROM from 
BEEBUGSOFT. Most of us quickly appreciated the benefits of this 
particular ROM. The rest of the evening was set aside for 
budding program writers, and a general question and answer time. 
The latter has proved to be of great value, to those who are 
Just starting out especially. 


TTTTTTTT TTT T TTT TTT ttt Tt ete te tet ett ttt tt attest ttt ttt ttt 
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Or SEGS for short was written to provide me with some visual 
indication of what Sound and Envelope looked like. I have had 
no musical training. The explanations I have seen and the 
inability to get any meaning from a string of numbers led me to 
try a method of depicting music in a form which has some meaning 
to me; graphs. The result is not everything that was desired 
nlack of memory has curtailed some hopes, and now that I have a 
reasonable working version I am more interested in using it and 
putting up with its shortcomings. 


The program uses the Resident Integer Variables where possible 
and specific operations have been grouped together and given ] 
think meaningful Procnames, which means no explanation 15 
needed. It is in colour which assists in the usefulness of the 
graphs but could be altered to suit monochrome although I have 
no way to try it. 


Running it. The *# Keys are used to select the various sections 
of the Sound and Envelope statements for alteration by the 
cursor Keys. Only the Sound statement is special {f@) and 
requires a «TAB? to get at the second half. With £9 used the 
BREAK Key has been circumvented (line 278) so check if altering 
line numbers. A text window is set up in the middle of the 
screen and a Pitch graph at the top and a Volume graph at the 
bottom (see Feb piéd). The Pitch graph has been ‘scaled’ to 
represent the maximum mumber of steps possible horizontally and 
the colours are alternating yellow and red for each section. It 
is possible to exceed the pitch range and where MODULO occurs 
the colour of that section changes to Cyan,and the graph may 
then not extend to the limits of the window. The Volume graph 
has a similar alternating colour scheme but as there is no 
Maduio there is no cyan. The vertical scale has been chosen to 
represent the ALA and ALD range and the horizontal to represent 
the Sound duration. The program ‘scales’ the various sections 
to represent their portion of the total, amd unlike the Pitch 
graph it can be considered factual(well almost). There is no 
wraparound ar lockout provided (experiment as you wish) and a 
minimal amount of error checking. Proczero and Procerror are 
needed to stop the program hanging up altogether although | 
think that if it falls over it will get up OK. Procplayback has 
a second sound statement to terminate the first otherwise it may 
play on and on. A matter of choice? You may wish to hear the 
release stage. The program was written on a machine with Basic | 


FPF FI PPFIF III AIF III 999 994949999999 99999499999 999999999499999 
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and OS 4.2. The various VDU’s and *FX’s change white to cyan, 
cursor off, enable cursor Keys, set text window, set f Keys. 


A variation. In the pitch graph I had Plot 1 change to Plot 17 
for MODULO but it was hard to see any difference on my monitor 
so I chose a colour change. The program is very long but could 
be shortened to PROCanne and PROCplayback if you are prepared to 
use some other way of entering the parameters, and perhaps a 
PROCsave and more than one at a time... And PROCanne ? Does a}! 


the work. 368 PRINT’"Change env nc / Volume with 
bot ton’ 
16 REM Sound Envelope Graphic Simulat 378 REPEAT 
ion 388 = PRINT JAB(8,7)" Channel no" 
28 REM ULL. Ay. 
36 MODE 1 39@ PRINT TAB(8,9)"Eny no / Volume'B 
48 PROCopening F/ 
38 MODE | 468 VAAN 2Z=BY 
$8 VOU 19,3,6,8,6,8 418 = =PROCcursor 
76 *FX4,1 4260 PURYA BA=24 
88 CLS 430 «IF WA? PROCsound! 
98 VOU 23,1,858;658; 440 UNTIL W199 
164 VOU 28,8, 28 39,18 456 PROCparams 
118 #FX225, 286 460 ENDPROC 
12@ PROCparams 478 
138 480 
148 REPEAT 498 DEF PROCsound! 
158 VOU 28,8,26,39,16 388 CLS 
168 X/=INKEY(8) 318 PRINT® Starting pitch / Duration 
176) IF X/=288 PROCsound # to exit'’ 
189) IF X4=281 PROCnumber_step 528 PRINT*Change Starting pitch with + 
mera io 
IF Xf= pitc 338 PRINT’"Change Durati 
216 = IF X4=284 PROCpitch3 " eee aan ees 
226 =o IF X4=285 PROCanne 248 REPEAT 
238 «IF X4=206 PROCattack 998 =PRINT TAB(G,7)* Starting pitch " 
246 OIF X4=287 PROCdecay Cy 
236 «=F X4=208 PROCsustain_release 568 = PRINT TAB{8,9)" Duration . 
268 IF X4=209 PROCp) ayback Dx 
276 = *KEY 18 “OLD (M GOTO5@ iM" 976 Y#eCAs 24=0% 
286 = UNTIL X4=999 588 = PROCcursor 
298 END 398 CHEYADARLY 
388 698 UNTIL W199 
318 $18 W/=288 
328 DEF PROCsound 420 ENDPROC 
338 CLS 630 


348 PRINT" Channel / Volume TAB for 44g 
= 658 DEF PROC 
358 PRINT"Change channel no. with top 44a cis aaa 
cursors" 
FIIPVPDAF PDIP ID IDI IF IIIA PA III DIV IIA AIF AIFF II AFI FFI 


DEEDES OL SOS SSC e ee eee eee eee ee Tee eee CTT TITTLE Raa 


478 PRINT" SOUND "5A; "Bj" "C45", "DY 
an tFL58 86 


688 con “ENVELOPE ® 
: fs Ay Ry at ei 
zh Hoes 
a eNDeROG 


718 

728 DEF PROCat tack 

738 CLS 

748 PRINT" Alter Attack*’ 


738 PROChead 

788 YAMA: 2/20 

778 PROCal ter} 

780 MAEYA ECA 

798 PROCparans 

888 ENDPROC 

818 

$28 

838 DEF PROCdecay 

848 CLS 

85@ PRINT" 

868 PROChead 

878 YASNA: 24=R/ 

888 PROCal ter} 

B98 NARYY :RA=ZA 

968 PROCpar ams 

918 ENDPROC 

926 

938 

948 DEF PROChead 

958 PRINT" Change step size with top c 
cursors" 

968 PRINT’* Change target level with b 
ot ton" 

978 ENDPROC 

986 


998 

1808 DEF PROCsustain_release 
{a18 CLS 
1828 PRINT" 


1838 PRINT"Al ter Sustain step size with 
top cursors® 
1046 PRINT#Al ter Release step size with 
bot tom* 
1458 REPEAT 
1068 PRINT TAB(O,7)"Sustain step size 
"OY 


Alter Decay"? 


Alter Sustain or Release 


1878 PRINT TAB(@,9)"Release step size 
*PZ 


1086 = Y¥/=0/.:2/=P4 
1098 § PROCcursor 
1108 = O4=Y4:PA=27 
1118 UNTIL W199 
1128 PROCparans 
113@ ENDPROC 


1148 
1158 

1148 DEF PROCp itch! 

1178 CLS 

1188 PRINT’ Alter Pitch 1° 


119@ PROCtap 
1288 Y4=O4: 2/204 
121@ PROCal ter? 
1228 GARY: A=2% 
1238 PROCpar ams 
1248 ENDPROC 
1256 


1268 

1278 DEF PROCtop 

1288 PRINT" Change step size with top c 
ursors* 

1298 PRINT’" Change number of steps wit 
h botton" 

1368 ENDPROC 

1318 

1328 

1338 DEF PROCpitch2 

1348 CLS 

1358 PRINT* Alter Pitch 2"” 

1368 PROCtop 

1378 YAR: ZUR, 

1388 PROCal ter? 

1398 HAYA KeadZ 

$468 PROCpar ams 

1418 ENDPROC 

1428 

1438 

1446 DEF PROCpitch3 

1458 CLS 

1468 PRINT* 

1478 PROCtop 

1488 Yas 24=L 

1498 PROCal ter2 

1968 LA=YA:LA=27 

1316 PROCparams 

1328 ENDPROC 


Alter Pitch 3% 


PIPPPIFPIF IID IFA ADI IIIA PIII IPFA IAI IF IID IDIIFIIII III IID 
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1538 

1548 

1556 DEF PROCal ter2 
1568 REPEAT 

1578 PRINT TAB{8,7)* 
1588 PRINT TAB(6,9)" 
1598 PROCcursor 

1688 = UNTIL W199 
1618 ENDPROC 

1628 

1638 

1648 DEF PROCal ter! 
1658 REPEAT 

1668 PRINT TAB(6,7)" 
1478 PRINT TABCB,9)" 
1686 PROCcursor 

1698 UNTIL W199 
£708 ENDPROC 

1718 


1728 

1738 DEF PROCanne 
1748 PROCgraph_pitch 
1758 PROCgraph_vol ume 
1768 ENDPROC 

1778 


1788 

1798 DEF PROCgraph_e itch 

1886 JF 0441 PROCerror :ENDPROC 

1818 YOU2é6 

1828 VOU 24,8;758;7465; 1886; 

1836 CLG 

1848 YOU 29,8;758; 

185@ GCOL 8,! 

1868 MOVE @,8:DRAW — 765,206: 
RAW 745,0:DRAW 

1878 MOVE 8 Aw 

1886 IF INT(ABS(J#G7/256)))8 THEN gco} 
=3 ELSE gcol=2 

1898 GCOL 8,qcol 

1988 PLOT 1,J4,J/#G4 MOD 254 

1918 IF INTCABS(K#H/254)))@ THEN gco] 
=3 ELSE gcol=i : 

1928 GCOL 8, gcal 

1938 PLOT 1 ,KA#FY,KARHA MOD 256 

1948 IF INTCABS(LA#I4/2546))>8 THEN gcol 
=3 ELSE gcol=2 

1958 GCOL 8,qcol 

1968 PLOT | Ys, L444 MOD 256 

1978 ENDPROC 


Step size"Y/ 
Step total’2Z/ 


Step size"YA 
Target “2s 


1988 

1996 

2888 DEF PROCoraph_vol une 

2018 IF O44) PROCerror :ENDPROC 

2826 VDU26 

2838 VOU 24 ,8:831279:278: 

2648 CLG 

2056 GCOL 6,1 

2868 MOVE 18,18 

2878 DRAW 18,265 

2886 DRAW 1218,265 

2898 DRAW {218,16 

2188 DRAM 18,16 

2118 GCOL8,! 

24128 VOU 29,16;18; 

2138 MOVE 

2148 factor=(FY MOD 127)%1288/(5#D7) 

2158 IF factor=@ PROCerror :ENDPROC 

2168 t1=(Q//MA) #factor 

2178 IF N=8 PROCzero:ENDPROC 

2188 t2=(ABS¢(Q4-RA)/ INA) ¥4actor 

2198 GCOL 8,2 

2288 PLOT 1,t1,2*% 

2218 GCOL 8,1! 

2228 PLOT 1,t2,2#(R4-@) 

2238 GCOL 8,2 

2248 T/=t1+t2 

2258 IF T4)=1288 PROCrelease ELSE PROCs 
ustain 

2268 ENDPROC 

2278 

2288 

2298 DEF PROCsustain 

2308 IF O/=8 PLOT 1,1280-T/,@:PROCrelea 
se rENDPROC 

2318 IF O48 PROCerror :ENDPROC 

2326 PLOT 1,¢1200-TA) ,¢1288-TA) #0 

2338 WW=R/-(1 2880-14) #04 

2348 IF U4c=8 ENDPROC ELSE PROCrelease 

2358 ENDPROC 

2368 





SPPIFFPIFIF PIA PIFIIF IF III APIA IF III AIDA III FIA IAI III III 
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2378 

2388 DEF PROCrelease 

2398 IF P>=8 ENDPROC 

2448 GCOL 8,1 

2418 PLOT 1 ,ABS<(CUA/P) xfactor) ,-Ut 
2428 ENDPROC 

2438 


2448 

2458 DEF PROCerror 
2468 YOU 28,8,28 39,18 
2478 PRINT TAB{18,8)"Check parameters* 
2488 ENDPROC 

2498 

2388 

2518 DEF PROCzero 
2028 GCOL 8,2 

2538 PLOT 1,%1,238 
2548 GCOL 8,1 

2558 TH=1288-ti 

2068 PLOT 1,74,8 

2578 PROCrelease 

2588 ENDPROC 

2578 


2688 

2618 DEF PROCnumber_step 

2628 CLS 

2638 PRINT’ Envelope no./ Step Jength 

2648 PRINT" Change Env. no. with top cu 
rsors*’ 

2658 PRINT" Change Step length with bot 
tom" 

2668 REPEAT 

2678 PRINT TAB(8,7)" Env. no. "EX 

PRINT TAB(O,9)"Step length* Fy 

YAR Es ZA=FA 

PROCcursor 

EVRY SFARLA 

2728 = UNTIL WAD199 

2738 PROCpar ams 

2748 ENDPROC 

2750 

2769 


2778 DEF PROCpl ayback 

2788 ENVELOPE &% FY ,G4,HA,1% 0%, KA,LAM 
1, NA 0 PA G4 RA 

2798 SOUND AY ,BY,CZ DY 

2888 SOUND 1,8,6,8 

2818 ENDPROC 

2826 

2838 

2848 DEF PROCcursor 

2858 W=GET 

2868 IF WA=136 Y4=YAtl 

2876 IF Wi=137 YARYA-1 

2888 IF Wi=138 24=24-] 

2898 IF Wé=199 24=24t! 

2988 ENDPROC 

2°18 

2928 

2938 DEF PROCopening 

2948 YOU 23,1 ,8585858; 

2958 COLOUR 2 

2968 PRINT! ’"* 

Simulation® 

2976 COLOUR! 

2988 PRINT’ ** 

2998 COLOUR 2 

3886 PRINT’ ‘* Use function Keys ¢ 
o select’’" Any function Key pri 
nts parameters"’*Press a function 
key to select parameter’ 

3818 COLOUR 1 

3628 PRINT’ " 

toggle"’ ff 

h cursor Keys" 

3838 COLOUR 2 

3846 PRINT’ ’* 


Sound Envelope Graphic 


Ju 


For SOUND use (TAB? to 
Alter parameters wit 


Pitch graph is at 


top"’* Volume graph is at b 
ottan*’* Text is in betwe 
en’ 


3058 COLOUR 

3848 PRINT’’" Cyan coloured Pitch graph 
means Modul o” 

3678 COLOUR 2 

3688 PRINT’ ** 
ontinue’ 

3898 REPEAT 

3188 = opening=GET 

3118 UNTIL opening=32 

3128 COLOUR 3 

3138 ENDPROL 


Press space bar to c 
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ELECTRON COLUMN 


Steve Cosgrove 


WAK? (To quote Donald Duck) where has my COPY Key gone! It is 
probably a rare event for a BBC programmer of 2 years standing 
to go out and buy an ELECTRON. More on that in a moment. The 
point is that within a week of buying the computer, a committee 
meeting had appointed me as ELECTRON sub-editor. Three days 
later, I was asked if I would like the Job. 


My background is this respect lies with Businesswoarld Computers. 

Way back when the only people who had heard of the BBC Micro 
were a bunch of very enthusiastic Post Office employees, most of 
whom are still with the club today. I lay claim to being the 
first person to sell BBC’s ex-stock in the country, and various 
other great mile-stones of history. It 1s goad to see the ald 
faces still in the club, and I look forward to meeting new 
people. 


Thats me, now the computer. Why an ELECTRON? and why now”? The 
second answer was fairly stright-forward. The other computer 
which my wife and I have (Super 8@) is unreliable, slow, and ! 
got sick of rewriting the word processor (in BASIC) that we were 
trying to use. 


Whats this? Atari, 128K of RAM, tons of software, all going 
cheap' Yes! sure says Dave Harris we have Pascal - sort of. 
Yes! says Dave - we have a Word Processor - but it’s not quite 
like VIEW. It soon transpired that I would prefer to get an 
Acorn machine. 


Einsteins were advertising that they were going out of the said 
range (= cheap prices'). After a few more ums and arrs, my we 
decided that this was the best time to buy. 


ELECTRON or BBC? This is a subject that I could go on about for 
hours. I won‘t, these are what I see as the main points in 
favour of the ELECTRON, 
*) BBC BASIC - no GOTQ’s! 
*) 1/0 control - easy to adapt to whatever you want to do 
- expansion is realatively cheap 

#) Strong User Group ~- thats you 
#) VIEW - well, WE like it - and ] have used a few others 
#) ISO PASCAL - two versions, brillient language 

- spot the COMP student 


PIPIPFIF I IFAD IFIP DAI FA DIF IID AIFF SFIS IFAD IDI PIII ITI IT 
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All these things it shares with the BBC, but - 
*#) Only $800 (including PLUS 1) 
*) Less temptation to buy more add-ons - really! 


Disadvantages - again, main ones only 
*) Slower than BBC - frustrateing at times, 
~ generally not that important 
*) Not as well supported - with 100’s in schools, the British 
Govt will look after the BBC ~ but! 


*) No RS423 port - but I can make one 
- haven’t missed the others, yet 


That is an intro to this column (455 words, not bad). This 
month I have tried to answer a few enquiries, and provided an 
index for the VIEW manual. Other enquiries we have recieved in 
the past, I will look at next month. 


IF we get other enquires, then I will have replies to them as 
well. The ELECTRON is alive and well, in our home at least. 
Please help us to Keep it in the magazine. 
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CLASSIFIED ADS 
KEKHEKHRHKERHKE 


DEALS AND DISCOUNTS 
Send stamped addressed envelope for details of the deals 
negotiated by the the UG for members, 


FOR SALE: 


MICRO COVERS 
Designed to fit the BBC micro. Attractive opaque reinforced 
plastic, $5-590 posted. To Iain, Box 26078, Epsom, Auckland 3. 


CASSETTE TAPES 
Ci@s, boxed, leaderless - available fram the UG in multiples of 
20 : $26-@8 plus $2-69 p&p. 


FLOPPY DIscs 
3M Brand 5 4/4" DSDD discs - available from the UG ex-stack in 
(cardboard) boxes of 1@: $55-00, which includes p&p. 


ROMS 
Disc Doctor, Toolkit, Wordwise, DFS - $39 each. 
Contact John, Wellington 737-128 evenings or 721-777 ext 586 


during working hours. 
6 a i 
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Review of ISQ PASCAL ( Acornsoft) $235 
Review copy supplied by Whitcoulls. By Odie. 


As promised last month here is a review of ISO PASCAL, it 
contains a few comparisons between the two versions of Pascal. 


ISO PASCAL 

This comes in a neatly packaged box which contains a manual, a 
book for Basic users, two Roms, a function key strip, a 
reference card, and a disc for the 6502 Second processor. 150 
PASCAL takes full use of the graphics and sound features of the 
BBC by providing built in procedures much the same as with 
OXFORD PASCAL but any VDU command may be sent using the VDU 
procedure (See last month). 


The manual is split into two sections, the first deals with 
Pascal on the BBC, the second is a copy of the specifications 
cf 150 PASCAL according to the British Standards Institute. The 
manual assumes you have a fair understanding of Pascal. It 
gives you full information om the Editor and compiler, it 
includes a comprehensive index and a quick reference chart in 
the appendices. The book which comes with the package 1s 
called ‘Fram Basic to Pascal’ (also available separately), an 
introduction to the language itself. This is an execellent book 
for the new Pascal user and is both informative and humourcus to 
relief the boredom of reading yet another manual. 


The disc has a version of both the roms on it and includes a 
file of error messages. Most of the examples in the manual are 
also included on the disc. The disc is mainly used in 
conjunction with the second processor. The reference card has a 
summary of all the basic commands available in the command mode 
and a list of all the possible errors. 


Typing *PASCAL once the Roms are installed takes you straight 
into command mode with a prompt of’%’. Below is a list of the 
commands available in command mode :- 


CLOSE to close all open files on the filing system. 
COMPILE this has many forms which do different things. 
EDIT to enter the editor. 

GQ run the objet code in memory. 

RUN run the object code from disc. 

LOAD load the object file specified. 

MODE to change made. 

SAVE save the abject code. 


PPFPIPIP IP IAIF IIA FPA PAPI A FIF FF IIAA IFIP IP II FID IF IIIT 
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TRACE [@, 1 or 2) set the trace options. 


The editor offers many very sophisticated facilities. As well 
as being a full screen editor it allows block copies, moves and 
deletes and all many of search and/or replace operations. The 
editor is effectively a mini wordprocessor which lacks only the 
word-wrap feature. As with VIEW and VIEWSHEET the function 
Keys are used to control most options in the editor with the 
cursor Keys controling the rest. The source code may be loaded 
into view and visa versa ( you may write your programs in view 
and then load them into the editor. ) 


The compiler is called from the command mode. There are many 
different options which affect the final result i.e. do not 
generate object code, turn off debugging code, turn off the 
extented features, produce full error messages or just their 
mumber etc. In all there are 16& compiler errors which can 
occur, these are clear amd precise and a further 34 run time 
messages which can occur during the running of the program. 


With the Second Processor both Roms become redundent and only 
the disc is required. To enter Pascal from here you type 
*DPASCAL, you edit the source code in the same way but the code 
must be saved to disc before compiling. Compiling is done 
entirely om disc. You may load the object code and then run it 
using the LOAD and GO commands or load and run the code in one 
step using the RUN command. 


In last month’s review I over looked a very important feature 
which was missing from OXFORD PASCAL. This is described below. 
The example program in last months Beeblet ran with one minor 
change and that was as follows. You must specify the 
parameters input and output in the program header statement :- 


PROGRAM convert (input, output) this telis Pascal that same 
form of input and output is expected. OXFORD PASCAL is the only 
version I Know of that does not enforce this form of the 
statement. 


Relow is am example which shows you how to use the built in 
graphics procedures. Notice that the line numbers are not 
included, they are not needed in ISO PASCAL whereas they are in 
OXFORD PASCAL. It changes the background colour and plots a 
triangle, 


PROGRAM graphics(input, output); 
{ 
Defines the BBC BASIC graphics functions 


PPPFFV FFI FFF PAF FF IPIFFAD PAF FADIA FFP I AIA IF II IFIP FIP FFI GF 
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PROCEDURE drawi{™, y : integer); 
CONST 
drawCode = 5; 
BEGIN 
plotidrawCode, x; y) 
END; 


PROCEDURE gcol(plotMode : integer; col : integer); 
CONST 
gcolCode = 18; 
BEGIN 
vdu(gcolCode, plotMade, col) 
END; 


PROCEDURE clg; 
CONST 

clgCode = 16; 
BEGIN 
vdul(ciqCode) 
ND; 


! 


BEGIN {main} 
mode(1); 
gcol(8,1390); { Set the background colour } 
gcol(@,red); { Set the foreground colour } 
Clg; { Clear the graphics screen } 
Graw(1280,109); 
draw(5 00,1000); 

; plot(85 0,0) { Fill in the triangle } 


Note that the following commands have predefined procedures in 


ISO PASCAL 
ala vdu, plot and point. 


END. 


PPFFPPIVAF IFPI IFIP II III IF 9999 494949999999999499 9499999949499 99499 
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I believe that ISO PASCAL is superior to OXFORD PASCAL in 
everyway with the only minor complaint being the object code 1s 
not stand alone i.e. the Pascal Interpreter must be present. 
Both the Interpreter and Compiler are written in Pascal which 
gives them far more speed than the OXFORD PASCAL versions. The 
fact that it runs with the Second Processor is a big plus 
because it gives the user 30k of memory to use for the source 
code in any screen mode. 


In summary Acornsoft’s ISO PASCAL is a very professional and 
comprehensive implementation of the language and is of the usual 
high standards from them. As mentioned the object code does not 
run by itself but I understand that Acornsoft plan to produce a 
separate run-time generator to allow stand alone cperation. At 
$235 this is a far better buy than OXFORD PASCAL and is well 
worth the extra $68. If you are going to buy a version of 
Pascal buy this one. Both this review and last months were not 
written by GCF...!!! so no more complaints. 





Steve Williams has commented that at a recent Auckland meeting a 
hand-count revealed that very few people have "taken the plunge" 
and bought a modem. With several sources of Supply all 
"imminent", it seems that most people are going to "wait and 
see' which is te best option. These are currently as follows: 

“import one from the U.K. Only the PRISM modem (780 
pounds, 1200/75 only) is type approved in NZ, so you take a risk 
importing anything else... 

-Buy a PRISM modem locally from Nobilanelo Cerumalia. 
Cost: $375, availability: indent orders (2-3 weeks), 

-Wait for the Wellingten Group to begin production of 
their modem which they are confident will be type approved. 
This modem is multi-mode (ie 390/308 and 1298/75) and powered by 
a ?V AC plug pack. Cost approx $150. Availabilty: several 
months. (CPragress report: A pc board is being completed and 
will be forwarded to the Post Office for type approval in a week 
or sa. It is envisaged that assembly will be undertaken by a 
local company. The original cost estimates still look to be 
roughly correct. - Ed.J 

-Wait for the Auckland Micro club to begin productian 
of their modem Kit which they are confident will be type 
approved. Similar to the Wellington model. Cost approx $2090, 
availability: several months. 

~Build a Dick Smith modem (totally ILLEGAL). Cast: 
$175, availability: as long as it takes to build. 

-Buy one from Software Supplies FPO Box 65 
Christchurch. Cost $276 for acoustic, $350 for direct connect 
(includes cable and ROM), Availabilty and specifications 
unknown, 

-Rent one from the Post Office (ha ha!) 


TEPAT TAT TTT TTT TA TTT TTT TTT TTT TET TT TTT TTT TTT Tt Tt tet ttt ttt 
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Alan Beeston 


Acornsoft’s Viewsheet Users Guide shows on page 134 how colour 
can be added to Viewsheet. Experimentation showed colour could 
also be added to View. 


Simple colour changes from the normal white foreground text with 
a black background toa single colour text foreground on a 
single colour background is possible, in any mode except 7. 


I find green text on a black background the best in View and 
Viewsheet. This is achieved by pressing (CTRL-S)72000, when in 
command mode. That is the Control Key and the ‘S’ Key together 
followed by 72000, with no spaces in between. This changes the 
white text to green instantly. 


The colour white has been redefined as green. The Key sequence 
is equivalent to VDU 19,7,2,0,0,8 in basic. 

For more detail refer to the BBC Users Guide pages 382 and 597: 
these will show how other colour combinations of forground and 
background can be achieved. The only thing to remember is that 
when in View or Viewsheet use (CTRL-S) instead of VDU 19. 


I actually use BOOT files a lot when using disks with View and 
Viewsheet and have worked out a simple way to get the BOOT 
files to change the screen text from white tc green. Below is a 
simple basic program that will append a BOOT file consisting of 
text commands with the Key sequence (CTRL-S)7200@. All it does 
is copy every byte of a BOOT file to a new file and add the byte 
sequence &13, &37, &32, &30, &36, &39. 


{@ INPUT “INPUT FILE NAME?" INFILES 188 BPUTH Y,&37 
20 INPUT "OUTPUT FILE NAME?*OUTFILES 118 BPUTH Y,&32 
38 X=OPENIN(INFILE$) 128 BPUTH Y,&38 
48 Y=OPENOUT(OUTFILES) 138 BPUTH Y,&38 
5@ REPEAT 148 BPUTH Y,&38 
68 AYSRGETH X 158 CLOSEM xX 
78 BPUT# Y,AY 148 CLOSEW Y 
88 UNTIL EOFW X {78 END 


98 BPUT# Y,&13 


TTTTTTTTT ATT TAT TT TTT TTT TTT TTT TT TTT tt tte t ttt tt ttt ttt tt ttitt 
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KEY-SYNTH REVISITED. 
Frank H. 
The Speech System 


The KEY-SYNTH program submitted by David Baker (Beeblet March 
1985, page 7) was my first serious encounter with machine code 
on the BBC. It was a very gentle introduction, since it was 
based on an example published in "The BBC Microcomputer Speech 
system User Guide" (page 16), and the additional development 
involved was relatively small. Apart from the machine code 
aspect, the project interested me because although I don’t have 
a speech system, I did want to find out something about it, and 
perhaps produce a program which would be ‘useful’. It would be 
i# it could cause David’s machine to spell out a program listing 
as it was entered from the Keyboard or LISTed, therby helping 
him avoid the struggle of trying to read the screen. 


I discovered first of all on studying the Speech System User 
Guide that the system uses the SOUND command when accessed from 
BASIC, but with different parameters. Compare the twa:- 


Normal system: SOUND C,A,P,D 
where © = channel number 6-3 
A = amplitude @-(-15) 
P = pitch 8-255 
D = duration 4-255 


Speech system: SOUND -1,N,0,9 
where N = word number 


The first parameter, -{, selects the speech system, and although 
it can have other values; it will always be negative for the 
speech system, and -i in particular for our purpose. The value 
of the word number determines which of the 165 words or 
word-parts is selected fram Word PHROM (PHrase ROM) A, supplied 
as part of the Speech System. The two zeros at the end maintain 
the syntax. 


Numbers 32 to 126 produce words which have an association with 
the characters represented by those ASCII codes, and of these, 
mumbers 48 to 57 produce the wards “zero” to "nine", and 68 to 
9@ produce "A" to "Z". Numbers 97 to {22, which are the ASCII 
codes for the lower case letters a to z, are used for words 
such as: a, and; b, bad; #¢, file; nm, mo; mr, return etc., but 
there are a few oddies. “l" is "illegal" and "qg"is "of". Not 


PPPIIIFIF FSF FIFI PP PIISS FF FF 9999 994499 449449494954999499999459 
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much help if you want a check on the letters you typed in! Fop 
best results, the message seems to be, “stick to capitals" ag 
much as possible. As for special characters used ir 
programming, one must get used to "tone 1" for ":" and "time" 
for "#" though "what", "plus" and "point" shouldn’t cause any 
problems. 


The Program 


Turning back to the KEY-SYNTH listing (Beeblet, March 1995, 
p.7), the entire machine code program is assembled in a 106-byte 
section of memory starting at Q%. The SOUND parameters are 
stored in an array H%® (8 bytes) The contents of the 658? 
Accumulator and X and Y registers are loaded on to the stack for 
safekeeping (lines 140 to 180), then the accumulator is loaded 
with @7 and the X and Y registers with the start address of the 
parameter block (lines 280,299) and a jump is performed to a 
subroutine at &F FF. This you will IMMEDIATELY recognise as an 
OSWORD call with A=7, that is, the assembly language equivalent 
of the BASIC SOUND command. On return from the subroutine, the 
6502 registers are restored to their original condition, and 
with the ASCII] code in the accumulator again, an OSWRCH call is 
made by jumping to routine &E@A4. The machine code "KEY-SYNTH" 
program is exitted, to the sound of the ASCII character which is 
displayed on the screen ringing in your ears! 


How did you get into the program in the first place? You pushed 
red function Key zero, which, at line 6@, replaced the address 
of the OSWRCH routine in its vector at &928E (low byte), &820F 
(high byte) with the start address of your KEY-SYNTH program 
(Q%), and from then, everything written to the screen is 
directed to the KEY-SYNTH routine first and spoken back to you 
before being displayed on the screen. If you want to get out of 
it again, push red function key 1 which restores the original 
address in the OSWRCH vector. 


As a matter of interest, the address of the OSWRCH routine used 
to be &FFEE in my machine before it was upgraded from tape to 
discs. One of the differences between the @.1 and 1.2 brand of 
operating system, I suppose, although both User Guide and 
Advanced User Guide quote &F FEE. A point to note if you should 
try the program and strike difficulties. 


C Technical sub editor notes: The correct OSWRCH vector is: of 
course &FFEE as stated above. What David Baker has done is to 
jump directly to the old contents of the QOSWRCH vector {nN 
memory page two). The reason he does this is because he has 
redirected the standard vector te his own routine, so to use the 


PEPIPPIFII ID IIIA PIPIIP APD I ID DIFIIFIPIPIDDIIP IPI IAAI III IIT 
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real OSWRCH he has to bypass the vectoring. J 


So far, so good! It looked all right on paper, but would it 
work? I decided that if the Speech System and normal sound 
commands were indeed similar, I ought to be able to use the same 
program, but substitute suitable constants in the C, A, and D 
parameters, and feed the "word number" N to the third parameter, 
P, which determines the pitch of the note. It did work, fine! - 
and so did the final KEY-SYNTH when I passed it over to David. 


BUT cose 

What’s this’ What have I done? 

I have just tried it out again with a longer program, and it 
failed -Keyboard inoperative - mathing going in or out! Nothing 
for - but BREAK! Could you look in again in, say; a month’s 
time: 


The Bug 

Well, I suppose most of you noticed it last April - shortly 
after the KEY-SYNTH listing was published. (Beeblet, March 1985, 
p.7), Everyone except me (and the Editor!) KNEW that PAGE must 
start on a “page” boundary, i.e., &G@E08@, &OFO0, &1000,...819700, 
&1A00, etc. My original instructions to reset PAGE to TOPti 
leave Page exactly where it was; at &0£900 or &19090. 


My non-speech version of the program loaded at PAGE=&1906, with 
TOP=&1BF@, which is the first free byte of memory above the 
program, consequently; that is where the program, when RUN, 
located Q%, the start address of the memory set aside for the 
machine code program. The parameter block H% to H%+? was added 
on at &1C55 to &1C5C, immediately following the 100 bytes of Q%, 
and when, at the end of the second pass of the assembly language 
program, the NEW command DELETES the source program, it leaves 
neat little gap from &190@ to &1BEF (751 bytes). My early tests 
didn’t exceed that, so all worked well. Im my ignorance, I 
expected the test programs to be located just above KEY-SYNTH. 
When I loaded a program which happened to be 8&3 bytes long to 
"speak" out the listing, it filled the 751 byte gap, and the 
next 132 bytes also, completely wiping cut KEY-SYNTH. LISTing 
the program after pressing function Key @ directed the first 
character to Q@% as before, but then off into outer space! 


Setting PAGE to the next page boundary (&1A@@) cured that, of 
course, but what about all those 751 bytes of memory lying idle? 
A little bit of juggling with PAGE and I’m sure I can wind up 


oy 


with KEY-SYNTH machine code down at the bottom, with PAGE reset 


just above it. And there are other hiding places for machine 
cade, of course...but that’s another story! 


eteteteeeeeteteterteetetteterttetcetettrrtetr etter ttt tt: 
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COLOUR ARIFACTION IN MODE 2 


Tim Ryan 


There are of course anly eight different colours available 
directly on the BBC. However that should not stop the 
enterprising programmer from using artifaction (or dithering as 
it is sometimes Known) to increase these colours. 


The listing below gives an example of two colour artifaction in 
BASIC. Note there are five "pure" colours mixed in with the 
artifacted ones. I bet those using standard colour television 
sets would have a hard time distinguishing them from some of the 
better artifactions, and even those with the lower resolution 
RGB monitors will have trouble with one or two |! 


T have not attempted to show all the variations, merely those 
that I feel produce a good colour - feel free to experiment with 
other combinations. Just add colour mumber pairs to the DATA 
list, before the "-1" pair. 


PTTtrrerrt ert tti itt i steer eee St, , 
| 176 DEF PROCstripes(startline,colourl, 


si.L ~ART I FAC colour?) , 
188 FOR line=startiinemaidth 10 (star 
Preeteteserrrtrere ttt reer Tees t tte! linet{)¥uidth STEP 8 
{96 GCOL @,colourt 
i a gant hi 266 4 =6MOVE 8,1 ine:PLOT 21,1286, line 
28 218 Page 8, )ine+4:PLOT 2) ,1288, linet 
46 MODE 2 
ReAie 228 3=©6. GOL «B colour | 
i psec the 238 4 ©6MOVE 8, line :PLOT 21,1288, 1 ine 
78 REPEAT 248 B,}inet4:PLOT 21,1288, inet 
8@ = READ colour ,colour2 58 NEXT 


2 
98 IF colourt)-1 THEN PROCstripesé] 
inenum, colour! ,colour2) 268 ENDPROC 


278 
188 =} inenum=linenums! 194.2 
148 UNTIiLcolour {<8 288 oe 1,8,1,1,1,4,5,9,1,9,!, ot Mole 2 
128 PRINT "PRESS <SPACE) TO END® ' 9 0 6.6.4,4,8 
138 REPEAT :A=GET UNTIL A=32 298 fa 342425753545 5756525050597 
148 VOU 23,1,1;6:8:6: a ass 
150 END gigi gO gG yl; 368 DATA -1,-1 


TUETREET TET terete te eT e Tee TTT TT TTT TTT TTT TTT ttt ht tT tt ttt 
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NO ROOM - NO LONGER 
Calling Procedures from Files. 


by Paul Hobbs. 


One of the weaknesses of BASIC is the inability to load in 
procedures aS required from a library on disc. This 18 
particularly frustrating when BBC BASIC actually goes to the 
trouble of allowing procedures and functions in the first place. 


Of course there are ways round this by compiling from your 
library a long program of all the procedures you require using a 
LINK program { e.g. B Start 1.2,n0.7,9.24) or, and better, 
turning the machine into a Virtual Memory Processor only leading 
in procedures as they are called ( and erasing them when not 
required). VMP from Solidisk uses this technique with sideways 
RAM as the library store. : 


In fact the process is very simple when you have some 
understanding of how BASIC programs are stored. No need for 
machine code, special add-ons er even much typing! 


The program CALL reveals all. 


First type in some useful procedures and functions (a few are 
listed here as programs YNSELLT and NUMDELY) and store them as 
BASIC programs. Don’t reference line numbers, it is bad practice 
and might confuse CALL. Next type in CALL and SAVE it. When you 
RUN it you will find it works even though you won’t find the 
called procedures when you LIST it at the end. 


How? 


A BASIC program starts at PAGE and ends at TOP. Variables start 

at LOMEM and end at VARTOP (VARTOP=72+73#256, it is NOT a BASIC 
Keyword). From here to HIMEM is free, and useless, memory. LOMEM 
is usually the same as TOP but here we reserve some space 
between TOP and LOMEM to store the procedures we are going to 
call. So reserve enough for the longest! and dan’t write long 
ones: 


250DEFPROCsetcall(memory%):T%=TOP:LOMEM=TOP+memory%:-ENDPROC 


This procedure MUST be called before any variables are declared 
or the variables will be lost. 


FIFFIVFA AIP FIF PIF SII DAI FIFA FFF AIFF FIFI IFIP IF FFI IF FI 99 
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Next we have to fool the BASIC program into adding the extra 
procedure to itself while running. The end of a BASIC program is 
marked by the bytes &@D,&FF, found at TOP-2. We overwrite this 
by *LOADing our procedure here. 


270DEFPROCcall(file$):OSCLI( LOAD +fileg+ 
+STR$”(TOP-2)):ENDPROC 


In case the program can’t sort cut any conflicting line numbers 
we can renumber it (RENUMBER won’t work in this situation): 


31@DEFPROCrenumber:N%=18:FORZ%=PAGE TO TOP 
S2Q1F7Z%=89ODiIANDIZ% 716 2&8 F Fi THEN 

2% 7i=N%DIVZ56:2% 72=NKMOD2Z256:2%=2ZKR +4: NKAAUNZA1IO 
33@NEXT:-ENDPROC 

This is unnecessary so long as you don’t reference line numbers 
or try to edit the resulting program. 


Finally, if we wish to delete the called procedures (to make 
room for more for instance) we simply restore the old end of the 
original program: 


29O0DE FPROCendcall:7(T%~-1)=&F F -ENDPROC 


Simple, isn’t it? There has to be a catch - well yes: calling 
the procedure from disc is much slower than calling it from RAM. 


Listing of CALL: 
{@REM Program CALL by Paul Hobbs, 1994. 
20 


382MODE3 

49 

S@PROCsetcall(&i9@) 

or compulsory to reserve space 

S@REM call the required file 

9@PROCcall( YNSELLT ) 

{@@REM renumber to avoid any line number conflict 
{4@PROCrenumber 

i120 IF NOT FNyn( Do you want to continue ) PRINT’ Oh dear! ’:END 
{3@PRINT’ Choose from: 1 2 3 4 5 “‘:mumber=FNselect(1,9) 
{40REM delete any appended files 

aeeeneeet 


17@PROCcall( NUMDELY ) 
{8@REPEAT:PRINT Enter a number: :-UNTILFNnumberiGET$) 


PIFPIAAAIPID IFAD IIIA IVI D IFIP IPI IIIA IAAF FAIS F ISI A FFI AFI IIG 
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{90PRINT’ Please wait... ’:PROCdelay(number#1@@) 
20@PROCendcall 


210 
22@PRINT’ Thats it, now list the program. ‘ 
230END 


2480 
°5@DE FPROCsetcallimemory%):T%=TOP:LOME M=TOP+ memory %:£NDPROC 


6 
27@DEFPROCcallifile$):OSCLI( LOAD +file$+ 
+STRE$“(TOP-2)):ENDPROC 


280 
296DEFPROCendcall:7(T%-1)=RF F:ENDPROC 


309 
31@DEFPROCrenumber:N%=10:FORZ%=PAGE TO TOP 


3201F 72%=8ODIANDIZ% 7i< S&F FI THEN 
2% 71=N% DIV256:2% 722=N%MOD256:2%=2%+4:NL=ANKAtIO 
330NEXT:ENDPROC 


If you are a BASIC I user you will need to write a procedure for 
OSCLI e.g.: 


DE FPROCosclila$):X%=8:Y%=&C:$8CO0=a$:CALL&FFF?7:ENDPROC 


Listing of YNSELLT: 


{@DE FF Nyn(m$):LOCAL»:PRINTm$; 7 <Y/N> ; 
2@REPEAT:x=INSTR( NnYy ,GET$):UNTIL» 
29=1-x)DIV2) 

3@ 


40 DE FF Nselect(min,max):LOCALn 

J@REPEAT:PRINT Please select a number: >: VDU6,8,8,8 
adie mVDULI:UNTILF Nlimit(n,min,max): VDUL@:=n 
S@DEF FNlimit(n,;min,max) 

981k n>=min AND n<=max =TRUE ELSE=FALSE 


Listing of NUMDELY: 


Eee ren eee 123456789. ,a$) THEN=TRUE ELSE 
% 


20 
3@DE F PROCdelay(n):LOCALt:t=TIME :REPEATUNTILTIME=ttn:E NDPROC 
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SORT REPORT —- PART THREE 


By Steven R. 
Correction 


While reading through last months’ article, I found = an 
ommission: page 17, program line {5@ had two missing brackets - 
the line should have read: 

i5@ position = INT(lo + hi) / 2) 
i.e. the function INT should have applied toa the whole 
calculation - it was there for a reason after all! 
It would only have slowed the search down a little - hopefully 
the program will work faster now. 


THE SHELL SORT - The fastest sort! 


You may have been wandering how I seem to Know so much about 
sorting. Most of my Knowledge comes from part of a C.I.T. 
course, where each student wrote one sort, the sorts were 
pooled, and then timed for various types of data. I’ve made a 
selection of some of the sorts that we wrote, for these 
articles. Here are the times (in milliseconds) for sorting an 
array of random data ona Data General Eclipse: 


eee een Ge RE EE ee PO i eee Set Ge Te ET Ge Ge Ge Gee See Se Geet GER GR niin seni qe cane GE) Gee mee qed iil RAE UY Genie ceils eel eh getty Gee aii eee 


: ARRAY SIZE 
SORT 

1 2 14 32 #64128 256 1624 
: BUBBLE s £ 2 DG I? $8 211 839 13416 
: INSERT t 2 3 3 8 22 -73-291 4631 
: BINARY INSERT 2 3 3 1 29 85 293 468@? 
: MERGE © 3S 6 16 16 3860 65 143 704 : 
: “SHELL s 2 3 3 6 13 28 66 £355 
: QUICK 23 4 7 41 23 46 217 : 


— a ee ee ee ee eee ee ee ee ee ee i ee eee ee es eee oe a Gee ee Gee ee Ce ee 4 ee ee ee eee ee eee ee Oe ee ee ee ee 


Probably the first thing that you will motice is that the times 
are im descending order. This is because I’m going through them 
in order of speed, finishing with the fastest. Now you Know 
roughly what to expect in the future! 

If vou graph the times, you will see that the time taken by some 
sorts rises much faster than for same af the others. My last 
sorting article will be devoted to haw to chaase the best seart, 
and traps for the unwary. 
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Algorithms vs the code 


Before a new sort is written, an algorithm, or method of doing 
it, 15 dreamed up. When we poor, unsuspecting students were 
each presented with an algorithm and told to get to it, we each 
thought that we could probably do it during afternoon tea - 
after all, we had just been told how to do it, and we had 
pseudo-code (see later) of the sorts as well! Two weeks later, 
most of the sorts weren’t quite working yet, and hadn’t been for 
the last two weeks! 


Er, sorry, but... 

Due to the annoying loss of my copies of the various sort 
programs in PASCAL (hopefully temporary, because they can’t be 
replaced), I will be giving you the algorithm for each sort, and 
hopefully, a BASIC program to implement each one. I Say 
hopefully because as I said above, some of the programs aren’t 
easy, even from the algorithm notes; so I can’t guarantee that 
ee be working in time to be included, although I'll da my 
est! 


The SHELL SORT Algorithm 


The shell sort is rather similar to the bubble sort. The main 
difference between the two is that instead of swapping adjacent 
elements like the bubble sort, the shell sort swaps elements 
that are a long way apart. The idea is to get each element 
close to it’s final position quickly, then put it in the right 
place soon after that. It does this in several passes through 
the array. First of all it swaps elements that are 2°kK - { apart 
(where Kis such that 2°K «< n <= 2°(K+i), and mn is the number in 
the array). On successive passes, the distance between elements 
that are swapped is half that of the previous pass. The 
distance between elements must eventually reach one, and so the 
last pass is as for the bubble sort. Note that as elements at 
the bottom are moved to the top quickly, the ones out of place 
at the tap are moved to the bottom just as quickly, and at the 
Same time, by swapping the two. That makes this sort very fast. 


The Pseudo-code 
Pseudo-code locks similar to the final code, but is not quite as 
detailed, and usually uses words and constructs that don’t exist 
in any programming language. 
The shell sort pseudo-code is like this: 


{ SHELLSORT(M AX) 


FIPIVIPPIIFIIDAIVAPIAIF III IAAI II 99 94999999999 994999999994949494 
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29 GAP = i 

3 DOWHILE GAP < MAX 

4 GAP = GAP # 2 

5 END DO 

6 DOWHILE (GAP - 1) / 2 TRUNCATED > @ 

7 GAP = (GAP - 1) / 2 TRUNCATED 

& DOWHILE ENTRY = 1 TO MAX - GAP 

9 POS = ENTRY 

{9 DOWHILE POS > @ AND ELEMENT(POS + GAP) ¢ ELEMENTIPOS) 
{4 EXCHANGE_ELEMENTS(POS, POS + GAP) 
{2 POS = POS - GAP 

13 END DO 

14 END DO 

45 END BO 


16 END SHELLSORT 


Pretty neat, huh? Usually it would be without numbers, but I’ve 
numbered each line so that I can talk about them. 


Line one is equivilent to DEF PROC, and provides the MAXimum 
number in the array to be sorted, usually the number the array 
was dimensioned with. 


Lines 2 - 5 set GAP, the distance, to twice it’s starting value 
of 2*Kk - {. This is because of the WHILE icop below which 
promptly halves it again. The reason a WHILE loop is used is to 
cater for MAX being zero or one. If you Know that it won't be 
then make line three a DOUNTIL loop instead. You may like to put 
deh at the start to trap these values (see “Line 7" para 
elow),. 


Lines 6 - 15 loop with smaller values of GAP until GAP reaches 
zero, when the array will be sorted. 


Line 7 reduces GAP for each loop. The reason that GAP is reduced 
the way it is, is so that it always ends up being one. If it was 
divided by two without the subtraction, it could reach zero 
without first having got to one, missing the final pass, and the 
array wouldn’t be completely sorted. Unfortunately, this 
algorithm doesn’t work when MAX is two, so we/ll have to build 
In a special check, 


Line & steps through the elements from the top one until it 

reaches the last element that has something to swap with. That 

+h found by "MAX - GAP", because each element is swapped with 

rah a that is GAP elements further down the array, 50 the one 
atis at "MAX - GAP" will be swapped with the one at MAX. 


FPVIVIFIVIFIFIIFII ASSIS FSI F IFIED I PITTI TIT 
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Line 9 sets POS to ENTRY because POS may be changed in line 12. 


Lines 1@ - 13 move the bottom element of the pair as far up as 
possible, by swapping it with the one GAP elements above it. 
Note that all swaps are between elements that are GAP apart. 

If it had been easy to code, the top element that is swapped 
would be moved as far down as possible while the bottom element 
moved up, but this gets complicated, and doesn’t speed up the 
sort much because of the extra tests that have to be made. 


Line 1@ checks POS in case it is negative because of line 1/2, 
and sees if the elements at POS and POS + GAP are out of order. 


Line iif swaps them if they are. 


Line 12 reduces POS by GAP so that the element in the lower 
position can be checked against the one GAP elements higher, and 
possibly swapped with it. 


Lines 13 - 16 are fairly obvious. 
The BASIC code 


This has been left for you to do. Last month I used a WHILE 
construct - you may have to put the code inside the loop into a 
PROCedure to Keep the line length down. Line & is a FOR NEXT 
loop. The rest of the cade is already BASIC code. 

Don’t forget the check for MAX being two, will you? If it is, 
Just exchange the two if they are out of order. The rest of the 
code won’t be executed in this case because of the WHILE at line 


&- 

ADVANTAGES 
{. This sort is never slower than the binary insert sort, and 
the program is smaller. If you are sorting more than about 22 
items, them this is the sort for you. AS you can see in the 


table, sorting 1024 items took 355 ms compared ta 4007 ms for 
the binary insert sort - quite a fast sort, wouldn’t you say 7 


2. Like the cthers so far, this sort takes no extra room besides 
the array. 
DISADVANTAGES 


i. You have to write it! (1’l) take pity on you - I‘ll include 
a BASIC version in the future.) 


Next month: the QUICKest' 


TTTTTTTT TTA T ATT T TTT TT TT TTT TTT tt tt ttt ttt tttt ttt ttt tt ttt tt 


0 
OTTPEVOT RSENS TST OSCR OU PSSCCSCrrrrerrnr tery rrr ere venn 


PRINTING DISK MAPS. 


Alan 8. 


In Beeblet August 1984 a disk Space map program was printed. 
This program developed by Neil Gordon diplayed on the computers 
screen details of files on a disk and the space they occupied. 


The program presented here takes that program and makes it 
produce output to a printer so that a record of disk maps may be 
kept. The program can be used to provide a written record af 
the state of every disk ina library. 


The original program displayed the content of one side of a 
disk, my version prints maps of both sides on ane sheet of 
paper. The printout allows the user to specify on the printout 
a disk identity and the date the printout was made. 


The program works by getting the current date from the programs 
user, it then enters a loop to produce printout of selected 
disks maps at that date. The current date and the disk 
Identity ( see below ) are input through a procedure written by 
David € which appears in the March 1984 Beeblet. 


A disk should be inserted into drive @ when the computer prompts 
for the disk identity. The identity consists of up to 4¢ 
charactors of text input by the user of the program. The 
program then prints the disk’s identity and the date in 
emphasised print at the top of the page. 


Then the program diskplays the disk map for drive @, a screen 

dump routine is used to printt this map. The way the map is 

produced does not allow the map to be printed as the display is 
enerated. The process of mapping drive @ is repeated for drive 
with in the loop. 


At the end of the loop the user is able to select if there are 
more disks to be mapped or if the program is to stop. 


PIFIFPIIFIFIFIFIAF FIFI DIDI VAD A SF FIFI FPF FAI FIFI FIFI FFI IIIT 
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APPLIED ENGINEERING AND TECHNOLOGY LTD 


3 HALLEYS LANE Phone (64)856-886 
WELLINGTON 





aptec 


FOR BBC AND ALL TYPES OF 
“MICROCOMPUTER SERVICING 





188 REM Disk Space Map - Updated 1786 MODE ? 
288 REN Beeblet August 84 Page 21 Ne joa Disk Id:" 


308 saves=2/ 188 

488 2/=6 2288 39 _X/=32 

588 REM Additions to Main Line Of 2388 YvA122 
688 REM program to output the Disk 2488 ace 


708 REM Maps to a printer, 2008 
BO@ REM By A. Beeston (June 1985) 2688 REM Set Emphsis mode printing 


986 2788 =REM on LOGITEC FT5@02 printer, 
1868 #TV 255 2888 =VDU 1,2? 

$168 MODE 7 2988 = =YDU 1,469 

1288 PROCassemble 3888 = PRINT*Disk Id:* $Butter: 

1388 PRINT"Enter date (DD/MM/YY) :*; 3818 PRINT SPC(18)"As at "dates 
1488 AZ=8 3186 REM Release Emphsis mode printin 
1368 X4=47 Q. 

1688 Y/=57 3288 = VDU 1,27 

1786 CALL Input 3368 = YDU 1,78 

1718 dates=$Buffer 3488 =6YDU 3 

1888 REPEAT 3088 MODE 8 


3608 DRIVE 8 
3788 = PROCdi splay_map 


PPPPIPIV AFI DAD AIF IAAI 9499999999 9499949999999949949949949999499095 
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VOU 2 
PROCprint_screen 


YDU 3 

CLS 

VDUI , 42 

¥DRIVE 2 
PROCdi spl aymap 
VDU 2 
PROCprint_screen 
VDUI 12 

VOU 3 

MODE 7? 
PRINT*Repeat for next disk (Y/N) 
8 


3868 
3988 
4968 


4188 
4288 


4306 
4488 
4508 
4688 
4788 
4866 
4988 
3868 


5188 =input$=GET$ 

5286 UNTIL input$="N" OR inputd="n" 

3388 END 7 

3488 

S5QG RENREKHERERERERES EERE SHAKER ARES 

5688 

5786 DEF PROCdi sp] ay_map 

3866 

5988 REM Original Disk Map code as 

6888 REM a procedure. 

4186 

6208 tcat 

6388 : 

6408 REN read info from catalogue area 

$368 REM (SeeDFS manual) 

6608 : 

6788 nsector/=?&F874+256%(3 AND 2&FB4) 

6888 ntrack4=nsector% DIV 16 

6988 PRINTTABCS6 8) intrackAs" track dis 
K ("snsectorAs” sectors)": 

7888 : 

7188 nti lex=2aFQ5/8 

7268 g4=2 

7388 PRINTTAB(S8 1) j :PRINT nfiled:" fi] 


@ : 
7408 IF nfite%<dt PRINT ‘5's 
7508 H/=3 
7688 : 
7788 REM print un c 
siete , used sectors 


7908 FOR I%=21 TO 38 
8606 PRINTTAB(G 12 ;STRINGS<ntrack’,," 


8108 NEXT 
3288 : 

9388 REM 
3408 : 


9588 PRINTTAB(®,21);"2"; 
9488 PRINTTAB(® 22) ;"%": 
8786 : 

8968 REM 

8988 REM 


9808 : 

9188 PRINTTAB(5@,3):"Lenghts of unused 
regions:: 

9288 tinesA=4 

9388 used sectors/=2 

9400 nextusector/=2 

9508 FOR TA=nfile/ TO 1 STEP -! 

9688  address=&Fb+817 

9708 = flength/=(address/74+256#( address - 

aad AND 8380/16 

)) 

lengthZ=(lengthzt+255)01V 256 

epee ener Weegee ealerreale 

startisector/=254#(3 AND address 

“A6\eaddressi?7 

frees=startsec toré-next_sectoré 

TF freeZ)8 THEN J ined=linedtl sPR 

INTTABCS@ J ine“) ;:PRINT freed 

next_sectorZ=start_sectorétlengt 

FOR Wi TO lengths 

K4=startsectorAétds-! 
18488 PRINTTABLKZ DIV 18, 21+(k% MOD 
18)) 5°"; 

10768 NEXT JA 

6868 N vA 

16968 free/=nsector/-next_sector” 

11688 IF freeZ)@ THEN Line“=1inedti:PRIN 
TTABC56 , FineZ#1) 3"---" ;TABC58, | ine 
442): sPRINT nsector/-used sectors: 

‘* total free sectors’; :]ine/=l ine 

Hite 

11186 s/=saver 

11286 PRINTTAB(8 , 38) 

11308 ENDPROC 

114BQ REMRARAHKHRHE EERE RARER ARRAN ERE 

11508 

11688 DEF PROCprint_screen 

11788 

{1888 REM Dumps Screen to Printer 

11988 

12866 FOR vpos/=@ TO 3! 


9888 
9988 


18008 


18168 
16288 


18388 


16488 
18588 


12186 FOR posi=8 TO 7? og 
12288 chrv=FNreadch(pos/ ,vpos) 
12388 = VDUT chr 


434944 
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12468 NEXT poss 

12588 YDUI,13 

12688 NEXT vposs 

12788 ENDPROC 

12888 

{29GB RENKEHEHAERLEL AREAS EAA ESSE REESE 

13688 

13166 REM Ret BBC Users Guide page 432 

13288 REM for FNreadch routine 

13388 REM Description 

13468 

13508 DEF FNreadch(Xpos4 ,Ypas/) 

13488 LOCAL AZ ,C/ 

13786 YOU 31 ,Xpos4, Ypos 

13886 A4=135 

13988 C/=USRI&FFFA) 

14808 C4=CY% AND &FFFF 

14188 Cé=C% DIV &168 

14288 =C7 

14386 

{44GR REN KKEXHRA HAE H RASA ARRE AER RL ERE REE 

14566 

14688 DEF PROCassemble 

14768 

14886 REM Assembles an Input routine 

14908 REM From Beeblet March 84 

15608 REM pages ? & 18 

15188 REM Called from BASIC as follows 

15268 REM Av=length of input string 

15388 REN X/=-Minimum ASCII value 

15406 REM Y/=Maximum ASCCI value 

{5508 REM CALL Input 

15486 REM Result returned as string in 

15788 REM $Buffer. 

15888 

15988 VOU 23,255,888 ,8,126 126,126,126 

14088 DIM CSECT 181 ,PDB 5 

{6188 WRCHWVER2GE Buf fer=&788 :OSUORDEAFFF 
! 

16208 WRCKRTN=AdRCHV+ 2 CWURCHY 41) #256 

16308 2PDB=Buffer MOD 2546: ?¢POB+) =Butfe 
r DIV 256 

16488 FOR I¥=@ TO 3 STEP 2 

14588 P%=CSECT 

16686 {OPT IZ 

16788 .Input 


16868 STA PDEt2 
STX PDB+3 
STY PDBt4 

16988 LDA #255 
JSR print 


LDA 48 
JSR print 

17886 LDA fertchar MOD 256 
STA WRCHV 


WRC 

LOA tertchar DIV 256 

STA WROHV+1 
17188 LDA #8 
LOX #PD8 MOD 256 
LDY #PDB DIV 256 
JSR OSWORD 
17288 LDA exit 

STA WROWV 

LDA exi t+? 

STA WROHV+ 

RTS 
17388 .print 

LDX PDB+2 


JSR WRCHRTN 
DEX 

BNE loop 
RTS 


CMP 48 
BNE ctitest 
LDA #&7F 


CMP #&28 
BCC exit 
CHP #&7F 
BNE rangetest 
17788 JSR WRCOHRTN 
LDA #255 
JSR WRCHRIN 
LDA #8 
BNE exit 
17888 .rangetest 
CMP PDB+3 
BCC error 
CMP PDB+4 
BCC exit 
BEG exit 


LDA #7 


UMP WRCHRIN 
] 


17488 . loop 


17568 .wrtchar 


17688 .ctitest 


17988 .error 
18888 .exit 


18198 NEXT 

18268 ENDPROC 

18308 

{B4GQ REMRXAKARRE RAKSHA RRER HAH R ELE RE 
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SAVING A DECIMATED PROGRAM, 
JL 


ine reader had tried cobbling together two versions of a 
Seiler cpoaram »the original and the second an improved amended 
and extended version which had most of the original latter part 
missing. The reader had tried to estimate where the contents 
overlapped and swap the tapes at the right time while loading 
without success and asked for guidance.The reply said it would 
not work and that was it. It ignored ? the plea that it would 
need to be typed in again and | wondered what 1 might do ina 
similar situation (the reader not the expert). So for the day 
when I trade in my disc drive I wrote... SAVEOR . 
The program looks for a carriage return (&D) to begin and the 
first time after the start that line lengths mismatch terminates 
the program with end (&FF), It then moves the rescued part down 
ready for saving. A badly damaged program could require the 
process repeated;PRINTING the variables used should assist in 
Knowing where to try. When the result is several separate bits 
*SPOOL can connect what you have together. Remember that 
LOADing and SAVing can only be done at page boundaries,at least 
with this program, (And not a procedure in sight.) 


KEEATHKARFAESL ELAS SKASARE SHE AKELRHE HERE 138 lenv=addr%.23 saddrveaddr/4 Jeny 
8 OIF addrZ21=@FF addrv=addr’t! 
L.SAVEOR 15@ UNTIL addry © 0 
RRELREARARL ARES ELA SAAS ELE ERS THERES 168 REPEAT 


1780 addr#=addry/-} 


18 REN,, 188) UNTIL ?addr% = &D 

7 Saal YOU CAN FROM A DANA me endé=addr/tls 2end/=aFF 

28 PRINT® » 208 REM...Move it down to save 
Salvage a part of a program 218 IF pagez-savev=0 END 

36 INPUT® f aa 228 REPEAT 
Te Loaded at address (hex) &'A 238 Psavev=?pagey 


48 page/=EVAL(*&" +ADDRS) 248 saves=savent] page-=pagestl 
18 INPUT’"Save it at address (hex) &* 258 UNTIL pagedends 
RESCUES oe END 
68 savev=EVAL( "4" 4RESCUES) 
78 addrZ=@ s lenv=8 send/=8 278 DEFPROCT oop 


G8 REM...Establish a starting place 288 REPEAT 

98 IF pager <) &D PROCIoop 298 pagenpagee’) 
188 addr/=pagey 388 = UNTIL ?page=&d 
118 REN,. Start saving 318 ENDPROC 

128 REPEAT 


TUTTSTAT TATA TAT ETT tt TTT tte Tt TET teeta ee tt tte ett t ttt tt ttt 
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DISK BACKUP MADE EASY 


Neil Gordon 


Hands up all of you who've noticed that number in brackets just 
after the disk title when you do a *CAT or *. of your disk? 
It’s a revision number, which has one added ta it every time you 
make a change on the disk, dropping back to 0@ after it reaches 
99. OK then, hands up all those who also Know what it should be 
used for? Right, you should be periodically comparing it with 
the revision number on the backup copy of that disk, and doing a 
new backup if they are different. 


What’s that? You say you dan’t make backup copies of your 
disks? Well, if you haven’t yet suffered accidental loss of 
your precious programs or data then you’re very lucky - and 
shouldn’t be pushing your luck. If you have lost files, then 
you will be familiar with the agany of not having a backup. 


I Keep a complete backup set of my disks, stored in a separate 
room in my house. Once every couple of weeks or sca! go through 
them and check that the revision numbers match, doing a new 
backup if they don’t. If I’ve been doing a lot of work on a 
particular disk or two, I‘l] back those up more often. 


Obviously, it’s a little difficult to make Gackups of your 
protected disks (Elite being a prime example), though I believe 
there are WaySeu. Protection aside, there are only two 
possible excuses for not Keeping backups. The first is cost. 
With the User Group selling you disks at the ridiculously good 
deal of $55 for ten, that’s (almost) a non-starter. You have to 
look on the cost as being a form of insurance. The second is 
inconvenience. Reducing that is what this program is for. 


If you have dual disk drives, you need read no farther. Backing 
up for you is a piece of cake and you have no more excuses. 
Using a single disk drive is a different matter. The 
ACORN-supplied *BACKUP utility cepies one side cf an &@ track 
disk in 8 chunks of {@ tracks, leading to a grand total of 29 
insertions and removals of disks to backup just that side. 


Hold om a sec, though. Why do we need to backup all $@ tracks 
of the disk? Frequently, less than half of it is actually used 
for storing data, especially given the limit of 31 files per 
side. What this program does is to check for the last track 
actually used, and backup only that many. Note that this 
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depends on the system used by the ACORN DFS for storing the 
catalogue in the first two sectors of the first track. Also, 
this program is only of use for the BBC and will not work on the 


Electran. 


To allow room to read in {@ tracks at a time, the program must 
be loaded at &110@ - this is the purpose of line 30. Change the 
file name if you want - I use a directory of B for all my BASIC 
program files. Setting HIMEM to &188@ in line 40 protects the 
huffer area. Lines 128 to 17@ read the cataloque information, 
calculate the start and length of the last file on the disk 
(which is actually the first one in the catalogue), and hence 
the number of tracks that need to be copied. The loop starting 
at line 1{9@ copies them in 1@ track chunks, prompting for the 
source and destination disks to be inserted using low and high 
tones respectively. The screen display tells you which tracks 
are being copied. The PROCedures at the bottom should be 
self-evident by their mames, even if I did have to leave out 
explanatory RE Marks to save space - the program only just fits 
as itis. 


Now those of you with single drives have mo excuse - get those 
extra disks, make your backup copies (and Keep them current), 
and you'll sleep more soundly at might. 

PPPAFIVFVIVAIF DIFP AIF PIF FF PIF IFIP FIFI IFA DF IFIP FIFI III FIFI 


18 REM SUCKERS 146 ENBPRUL 
26 MODE6 : ONERROR PRINTTAB( 25 , 15) "Don’ 158 

t RUN it, LIST it '* END 168 DEFPROCensure_fur ther contr ibtions 
36 REPEAT 178 IF FN¢irst_contribution THEN make. 
46 = PROC check_records mistakes_in_article 


38 -PROCensure_further_contribtions 99 JF TIME = Jam AND tired = TRUE ANd 


68 PROCrastinate ee ) 
7@ UNTIL (complaint = TRUE) OR (Fa deadline = tomorrow THEN make_mis 


ir Go = threatened) 198 aoe 
e0 EN 208 
74 ibuti 
218 DEFFN¢irst contribution 
18 DEFPROCcheck records 228 IF first-contribution THEN =TRUE E 
118 LOCAL ity LSE = FALSE 


128 IF member = "Don A." AND IF anothe 29 
romember = "Don F." THEN bungle = . 
TRUE : PROCconfuse_the_buggers(men 5a, cee eonere 


ber another_member ) ae _ 
138 IF LOCAL ity = Tokeroa THEN even.b 268 = UNTIL contributions >= number_of 


igger_bungle = TRUE : PROCcontuse_ ms et 
the_buaqgers(hint article) ah Be aaa 


TTTTTTTTTT TTT etter rete nanan dasa assess an sane s sera ttt ttt 
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71.8.B6ACKUP 
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18 REM Faster disk backup - Nei} Gord 
on 

28 MODE 7 

38 IF PAGE<)&1108 THEN PAGE=&1108@ = C 
HAIN "B. BACKUP" 

48 HIMEM=&1908 

36 DIM fcb 18 

68 : 

7@ REPEAT 

B68 4 CLS:VDU 7:PRINT ‘"Drive to backu 


pi 
98 REPEAT drive=GET : UNTIL drives 
SC"B8" OR drive=ASC*2" 
168 en CHR$drive: : drive=drive-A 
ae 
118 = PROCinsert(" source *) 
126 = PROCread(8,1,! ,41888) 
138 = length4=( 7&1 880+ 256#2&1 BOD+ 256%! 
(?&188E) AND &38 ) ) 
148 length4= (length4+255) DIV 254 
138 ee (2&1 88E) AN 
168 0 -nlO/=(startétlength4-1) DIV 18@ 
178 = PRINT TABY21,1);"Chas "Len t@%:" 
tracks)" 
188 FOR I4=8 TO n18% STEP 18 
198 bu f=&1 888 
288 JMAX=n 184-14 
218 TF JMAX>9 THEN JMAX=9 
228 PRINT TAB(4,3)s"Copying tracks 
"sheyAy" to "she TZ+ MAX 
238 ; 
248 IF Ne THEN PROCinsert(" sour 
ce " 
236 bu¢l=bu¢ 
248 FOR Jz=@ TO JMAX 
278 PROCread( 14+J4 8,9 buf) 
298 buf=bu¢+2568@ 
296 NEXT JY 
306 PROCinser t(CHRS134+"destinatio 
n* ¢CHR${ 37) 
318 buf=but i 


328 FOR J/=8 10 JMAX 

338 PROCwe i te (IZ+d% 8,9, but) 

348 buf=but+ 2568 

358 NEXT JA 

368 NEXT 14 

378 UNTIL FALSE 

388 : . 

398 DEF PROCinsert(A$) 

40@ LOCAL SZ 

419 IF At=" source " THEN SOUND 1,-8,! 


SOUND 1,-11,188,7 

428 Rt ta (1,18) tinsert® AS; "disk, 
hit a key" sSTRINGS(39-POS,° "); 

438 S/=GET 

448 ENDPROC 

458 : 

448 DEF PROCread< track sector! ,sectorz 
buf) 

478 PROCrw(k53, track, sector! ,sector2,b 
uf) 

488 ENDPROC 

498 : 

508 DEF PROGwrite<track sector! ,sector 
2, but) 

510 PROCrwi&4B, track sector] ,sector2,b 
uf) 

528 ENDPROC 

338: 

548 DEF PROCrwicmd, track sector! ,secto 
p2, but) 

308 : 


548 f¢cb?8=drive 

578 fcb'l=buF 

588 fcb' 8 

59@ fcb79=3 

668 fcb?é=cmd 

418 ¢cb?7=track 

628 fcb?8sector! 

628 Fcb29=K2] 4 (sector2-sectori) 

648 : 

658 Av=&7F 

668 X4=fcb MOD 256 

678 Yé=fch DIV 256 

488 CALL &FFF1 : REM OSWORD 

698 JF ¢cb218<)8 THEN PRINT “Error “34 
cb?i8 : END 

768 ENDPROC 
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ELECTRON VIEW | 


A letter 12 FUNC K & J compiled by Steve Cosgrove 
ASCII 29, 56 FUNC 4 SCREEN 
Blocks 24 FUNC i SEARCH 
Bytes Free 3,6 FUNC N 04 SETUP 
CHANGE 45 FUNC 0 SHEETS 
cil 2 FUNC P 22 se 
COUNT 49 | Saving 
ere | FUNC a 24 Setting u 
ounting Words 48 FUNC R 22 Stand a" | 

DELETE 1,13 FUNC T 13 ro eae 
EDIT 4) FUNC UL F i: i Commands 
ESCAPE 6 FUNC Wk I 14,22 CF 
Editing 12,22 FUNC X kn cq 
Editing Large Doc 42 FUNC Y or FUNC 8 43 OF 
Emphasising Print 41 Finding Words 44 oH 

27 Folding 46 m 
deel 7 Footers 34 EM 

Formatting 10, 14,26, 48,50 EP 

FOLD OFF /ON 47 Histor 4 ~C*~*~«& 
FORMAT 28,46,48 Introduction { FO 
FUNC , 8,26 = Justifying 10 HE 
FUNC - 23 Keyboard 7 HM 
FUNC 22,23 LOAD 18 HT 
FUNC / 23 " 21,27 LJ 
FUNC 2 22 MORE 42 LK 
FUNC 3 a2 Macros 38 LS 
FUNC 4 23 Margin release 27 OP 
FUNC 5 13, 22 Markers 24, 44 PB 
FUNC 6 22 NAME 19 PE 
FUNC 7 23 NEW ii PL 
FUNC 9 14,22 NE tf, 18 RJ 
FUNC A 13 Nuaber Registers 4g ak 
FUNC B or FUNC i 14,50 PRINT 20 TH 
FUNC C 22 Page layout at 15 
FUNC D 13 Printing 20 TAB 
FUNC E 13 QUIT 43 Using Discs 
FUNC F 13 READ 18 Window 
FUNC G or FUNC 0 13 REPLACE 46 Word wrap 
FUNC H 4! RETURN i “codes 
FUNC I 26,29 Ruler — 

4} SAVE 


FUNC J 
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HALL OF FAME 
PUBLISHER; GAME HISCORE SCORER 
Aardvark Frak 1,826,828 Andrew P. 
Monsters 175,119 Geof P. 
Zalaga 215,188 Peter J. 
392,8698% Nick C. 
Acorn Arcadians 34,748 Rasik R. 
Aviator 3,618 Joanne C’s Dad 
Countdown 246 Andrew 
Meteors 44,268 Andrew P. 
Monsters 149,738 Rupert T. 
Planetoid 413,875 Peter Jd. 
Rocket Raid 140,777 #£=Mark R. 
Snapper 238 ,888 Susan 
Starship Command 9,495 Robert N. 
Super Invader UF 5208 Kiran R, 
A&F Cylon Attack 137,978 Aaron 
Chuckie Egg 312%,456% Greg C. 
Alligat. Bug Blaster 37,642 Steve W. 
Guardian 7,788 Toni I. 
Amc om Fortress 89,788 Andrew P. 
Bugbyte Twin Kingdom 385 6A. Beeston 
Comp.Con Android Attack 236,195 Peter J. 
Dr Soft “747? 2@5 Steve W. 
Firebird Bird Strike 11,348 David G. 
14,986% Patrick C. 
FG Soft. Mutant Defender 6,788 Steve W. 
Lords of Time $25/19888 Steve W/Kerry K. 
Snowball } 9866/1668 Steve W./Dianne 
Prog. Pow Felix in Factory 13,1358 Duncan’s Flatmate 
Frenzy 915,468 Dianne T 
Killer Gorilla 91,808 Susan 
Laser Command LOY ee2o P,. Leadley 
Moon Raider 112,358 P.Leadley 
Sup.Soft Q*Bert 43,825 Peter J. 
Mr Wiz 21,658% Chris M. 
Roadrunner 118,788 Duncan’s Flatmate 
es Dr Who 35,248 Duncan’s Flatmate 
*Electron Version. 
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USER GROUP MEETINGS 


AUCKLAND: “meets 2nd Wednesday of the month, 7.30pm, Conference Rooms, 
Auckland Secondary Teachers Pear gcase Epsam Ave, Epsom. ph 
Dave 770-4638 x 518¢bus) or Kerry 695-355. 
-North Shore: meets last Wednesday of the month, 7.38pm, 
Salvation Army Hall, Glenfield Road, Glenfield ph Chris 
419-8543 (wk) 


CHRISTCHURCH ;: -fortnightly workshops, Monday 6.3@pm at Hagley High School. 
ph. Michael 582-267. 

DUNEDIN: ~first Thursday of the month. Phone Martin McDowal! 42-631 

HAWKES BAY: -Alternative months Hastings & Napier. Contact Kendall Napier 
435-624, Bob Taradale 446-955, Mitch Hastings 779-235. 

INVERCARGILL : -Phone Evan 330-444 Invercargill. 

PALMERSTON NORTH:-Phone Tom Skinner 83-G09(wk) 

TAUPO: ~meets every second Wednesday @ 7pm. Contact David 84-215 (h), 
B5-124 (wk). 

TAURANGA: ~every second Wednesday. ph. Chris & Jane 465-676. 

TIMARU: -Phone Lloyd van der Krogt Timaru 61-412. 

TOKOROA : “meets first Friday of each month, Tokoroa High School, &pm. 
Phone Brian 467-625 Tokoraa. 

WAIKATO: -first Monday of the month 7.38pm Waikato Tech Institute. Ph. 
Alison or John, Morrinsville 64695. 

WELLINGTON: -meets last WEDNESDAY of the month, 7.38pm, Roayal Society 


Lecture Theatre, Turnbull St, Thorndon. 
-Workshops: second Thursday of month, Wellington College - 
ring Don 848-235 or Beryl 842-874 or Mike 785-437. 


OTHER CENTRES: - let us Know and we will publish details here. 


TD iy be as se fe 
CONTRIBUTIONS:-most welcome. Listings should be sent in on tape or disc. (Tape 
~ 2 copies, one at 308 baud please). Please include written explanation of 
listing; text and graphics only material welcome too. 


DEADLINES:- For a particular issue, the last day for material is the last day of 
the month prior to publication. 


ADVERTISING: - Rates are $280 per half page (camera ready), deadline as above. 


Copyright (c) BBC/ACORN COMPUTER USER GROUP NZ INC. 
Published monthly except January and mailed to financial members. 


MEMBERSHIP: 
Membership of the users group is on payment of an annua! subscription from April 
to March. For the 1785/5 year it is: $34.00, plus $5.00 for Auckland & 
Wellington members as a local branch tevy, which entitles attendance at meetings 
as detailed above. Joining or renewing members get all the back issues of the 
current year - thase joining from | October may have half the annual sub waived 
and only receive newsletters from 1 October. 


BBCYACORN COMPUTER USER GROUP NZ INC, 
P.0.Box 9592, WELLINGTON. 


Reproduced by BRYCE FRANCIS LID, WELLINGTON, 
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